<%'  ------------------------------------------------------------
  '  mz_ValueString.asp 
  '  ------------------------------------------------------------
  '  VCS INFO:
  '  
  '  $Revision:   1.0  $
  '  $Date:   05 Mar 1998 17:08:54  $
  '  $Author:   RSOLOMON  $
  '  $Workfile:   mz_valuestring.asp  $
  '  ------------------------------------------------------------
  '  All Rights Reserved.  Copyright (c) 1988-1998 FileNET Corp.
  '  ------------------------------------------------------------
  '%>

	<%   if value = "" then '1
		' build the display list for MVCP
		if PropDesc.GetState(Application("idmPropMultiValue")) then '2
			StrVal=""
			set MVProp = Prop.Value ' object is a MultipleValues
			if ( PropDesc.GetState(Application("idmPropMustPick"))) then  '3 
				if Request.Form(addName).Count then
					for p=1 to Request.Form(addName).Count ' display new added values
						if not (Request.Form(addName)(p) = "") then
						StrVal = StrVal + Request.Form(addName)(p) + ","
						end if
					next
				else 
					StrVal = PropDesc.FormatValue(MVProp)
				end if
			else		'3
			  if Request.Form(delName).Count then	'4
				for p=1 to MVProp.Count
					keepVal = 1
					For k=1 to Request.Form(delName).Count
						if CInt(Request.Form(delName)(k)) = p then	'5
							keepVal = 0
							exit for
						end if		'5
					next
					if keepVal then	'6
						if StrVal <> "" then
							StrVal = StrVal + "," 
						end if 
						StrVal = StrVal + PropDesc.FormatValue(MVProp.Item(p))
					end if			'6	
				next
			  else		'4
					StrVal = PropDesc.FormatValue(MVProp)
			  end if	'4
			  if StrVal <> ""  and Request.Form(addName).Count > 0 then
				StrVal = StrVal + "," 
			  end if 
			  for p=1 to Request.Form(addName).Count ' display new added values
				if not (Request.Form(addName)(p) = "") then
					StrVal = StrVal + Request.Form(addName)(p) + ","
				end if
			  next
			  
			end if		'3					
			value = StrVal
		 
		  else	'2
			value = Prop.FormatValue
		  end if		'2
		end if	'1
		%>
	  